#!/usr/bin/perl -w
use strict;
use Data::Dumper;

my @col_psites;

for (my $i=0; $i<3; $i++){
    my @temp;
    for (my $j=0; $j<5; $j++){
        push @temp, $j;
    }
    push @col_psites, [@temp];
}

print Dumper @col_psites;
my $myar = shift @col_psites;
print Dumper $myar;
print "-\n";

foreach my $site (@{$myar}){
    print Dumper $site;
    }

foreach my $nsite (@col_psites){
    print Dumper @{$nsite};
    }

print "-*-\n";
my @test = (1,2,3,4);
my @test2 = [1,2,3,4];

print @test;
print @test2;

my @test3 = (2,5,7,1,2);
print (my @test4 = sort @test3);
print "\n";
print pop @test4;
